Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.2/Group1/Tarihdll.dll/0/RCDATA/TFORMALIMKAPA/TFORMALIMKAPA.txt

Text File | 1998-07-24 | 14KB | 632 lines

object FormAlimKapa: TFormAlimKapa
  Left = 1
  Top = 0
  Width = 638
  Height = 453
  HelpContext = 1111
  Caption = 'Se�erek veya Fat.No Yazarak Al�� Kapatma'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 252
    Top = 0
    Width = 374
    Height = 30
    Caption =
      'L�tfen Kapamak �stedi�niz Faturalar�n Fat.Nolar�n� A�a��daki Kut' +
      'uya Alta Alta Yaz�n veya Yandaki Tabloyu veya Butonlar� T�klayar' +
      'ak Se�in'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Label14: TLabel
    Left = 420
    Top = 124
    Width = 82
    Height = 14
    Caption = 'Ort.Vade Tarihi'
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label12: TLabel
    Left = 524
    Top = 124
    Width = 95
    Height = 14
    Caption = 'Son Durum Tarihi'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 1
    Top = 172
    Width = 164
    Height = 28
    Caption = 'Se�ilen Kapat�lacak Fat.lardan Bulunanalar ve Sonu�lar�'
    WordWrap = True
  end
  object Label3: TLabel
    Left = 8
    Top = 0
    Width = 156
    Height = 14
    Caption = 'Kapat�lmam�� Al�m Faturalar�'
  end
  object Label4: TLabel
    Left = 2
    Top = 323
    Width = 53
    Height = 33
    Caption = 'Tediye Makbuzu'
    WordWrap = True
  end
  object Label5: TLabel
    Left = 288
    Top = 31
    Width = 117
    Height = 15
    Caption = 'Se�ilen Fatura No.lar'
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBMemoTED: TDBMemo
    Left = 56
    Top = 353
    Width = 557
    Height = 33
    DataField = 'MAKBUZ'
    DataSource = DS_TED
    TabOrder = 13
  end
  object Memo1: TMemo
    Left = 282
    Top = 48
    Width = 129
    Height = 120
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object RadioGrORT: TRadioGroup
    Left = 416
    Top = 89
    Width = 205
    Height = 33
    Caption = 'Ort.Vade Hesab�'
    Color = clSilver
    Columns = 3
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemIndex = 1
    Items.Strings = (
      'Yok'
      'A��rl�kl�'
      'Basit')
    ParentColor = False
    ParentFont = False
    TabOrder = 1
  end
  object RadioGrOdA: TRadioGroup
    Left = 415
    Top = 30
    Width = 114
    Height = 52
    Caption = '�deme Tipi'
    Color = clSilver
    Columns = 2
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemIndex = 1
    Items.Strings = (
      'Nakit'
      '�ek'
      'Senet'
      'Di�er')
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object MaskEditVADE: TMaskEdit
    Left = 420
    Top = 141
    Width = 63
    Height = 22
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '  .  .    '
    OnExit = MaskEditVADEExit
  end
  object MaskEditST: TMaskEdit
    Left = 524
    Top = 141
    Width = 63
    Height = 22
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '  .  .    '
    OnExit = MaskEditVADEExit
  end
  object BtnAKapa: TBitBtn
    Left = 340
    Top = 174
    Width = 284
    Height = 25
    Caption = 'Se�ilen Al�� Fat.lar�n� Kapa ve Hrk.Sonucunu Sakla'
    Enabled = False
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = BtnAKapaClick
  end
  object DBGrid1: TDBGrid
    Left = -1
    Top = 201
    Width = 629
    Height = 117
    DataSource = DataSource1
    TabOrder = 6
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object BitBtn2: TBitBtn
    Left = 167
    Top = 174
    Width = 166
    Height = 25
    Caption = 'Se�ilen Fat.ve Sonucu G�ster'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = BitBtn2Click
  end
  object DBGrid2: TDBGrid
    Left = 1
    Top = 13
    Width = 245
    Height = 156
    DataSource = DataSource3
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    TitleFont.Color = clRed
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnDblClick = DBGrid2DblClick
  end
  object BitBtn3: TBitBtn
    Left = 253
    Top = 66
    Width = 23
    Height = 23
    Hint = 'T�m�n� Se�'
    Caption = '>>'
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = BitBtn3Click
  end
  object BtnISA: TBitBtn
    Left = 253
    Top = 120
    Width = 23
    Height = 23
    Hint = '��aretliyi Se�'
    Caption = '>'
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = DBGrid2DblClick
  end
  object MemoMAK: TMemo
    Left = 56
    Top = 320
    Width = 570
    Height = 105
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 11
  end
  object BtnYAZ: TBitBtn
    Left = 0
    Top = 385
    Width = 49
    Height = 33
    Caption = 'Yazd�r'
    TabOrder = 12
    OnClick = BtnYAZClick
  end
  object BitBtn1: TBitBtn
    Left = 582
    Top = 37
    Width = 46
    Height = 45
    TabOrder = 14
    Kind = bkClose
    Layout = blGlyphBottom
  end
  object BitBtn4: TBitBtn
    Left = 533
    Top = 37
    Width = 46
    Height = 45
    HelpContext = 1111
    TabOrder = 15
    Kind = bkHelp
    Layout = blGlyphBottom
  end
  object QAlimTop: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100036B726D000104004F5254000001}
    SQL.Strings = (
      'SELECT'
      'SUM(HAREKET.ALACAK),'
      'AVG(VADE) AS VADEORT,'
      'SUM( (VADE-"25.04.1998") * ALACAK) AS AGIRALA'
      'FROM HAREKET'
      'WHERE '
      '(CARIKOD=:krm)'
      'AND (ALSAT='#39'A'#39' )'
      'AND (TUR='#39'A'#39' )'
      'AND (NIHAI IS NULL OR NIHAI=0) AND('
      '(ALSATNO=11) OR'
      '(ALSATNO=12) OR'
      '(ALSATNO=13) OR'
      '(ALSATNO=14) OR'
      '(ALSATNO=15) )'
      ''
      '')
    Left = 330
    Top = 73
    object QAlimTopSUMOFALACAK: TCurrencyField
      FieldName = 'SUM OF ALACAK'
    end
    object QAlimTopVADEORT: TDateField
      FieldName = 'VADEORT'
    end
    object QAlimTopAGIRALA: TCurrencyField
      FieldName = 'AGIRALA'
    end
  end
  object QKapat: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      0100040008536F6E447572756D000904005A950A000000036B726D0001020030
      00000006426173547268000904005A950A00000006536F6E547268000904005A
      950A000000}
    SQL.Strings = (
      'UPDATE HAREKET'
      'SET NIHAI=1,SONTARIH=:SonDurum'
      'WHERE '
      '(CARIKOD=:krm'
      'AND ALSAT='#39'A'#39' '
      'AND TUR='#39'A'#39
      'AND VADE>=:BasTrh'
      'AND VADE<=:SonTrh)'
      'AND (NIHAI IS NULL OR NIHAI=0)')
    Left = 296
    Top = 76
  end
  object QCtrlAlis: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      '* FROM ALIS1'
      'WHERE'
      '(FATNO='#39'A  349189'#39') OR'
      '(FATNO='#39'546572'#39') OR'
      '(FATNO='#39'A  313860'#39')')
    Left = 8
    Top = 216
    object QCtrlAlisFATNO: TStringField
      DisplayLabel = 'Fatura No'
      FieldName = 'FATNO'
      Size = 15
    end
    object QCtrlAlisIRSALNO: TStringField
      DisplayLabel = '�rsaliye No'
      FieldName = 'IRSALNO'
      Size = 15
    end
    object QCtrlAlisFATARIH: TDateField
      DisplayLabel = 'Fat.Trh'
      DisplayWidth = 8
      FieldName = 'FATARIH'
      DisplayFormat = 'dd.mm.yy'
    end
    object QCtrlAlisIRSTARIH: TDateField
      DisplayLabel = '�rs.Tarih'
      FieldName = 'IRSTARIH'
      DisplayFormat = 'dd.mm.yy'
    end
    object QCtrlAlisBRUT: TCurrencyField
      DisplayLabel = 'Fat. Br�t Tutar'
      FieldName = 'BRUT'
    end
    object QCtrlAlisNET: TCurrencyField
      DisplayLabel = 'Fat. Net Tutar�'
      FieldName = 'NET'
    end
    object QCtrlAlisVADE: TDateField
      FieldName = 'VADE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object QCtrlAlisACIKLAMA: TStringField
      DisplayLabel = 'A��klama'
      FieldName = 'ACIKLAMA'
      Size = 95
    end
    object QCtrlAlisKRMKOD: TStringField
      FieldName = 'KRMKOD'
      Size = 11
    end
    object QCtrlAlisALISNO: TFloatField
      FieldName = 'ALISNO'
    end
  end
  object DataSource1: TDataSource
    DataSet = QCtrlAlis
    Left = 40
    Top = 216
  end
  object DataSource2: TDataSource
    DataSet = QAlimTop
    Left = 362
    Top = 72
  end
  object QFat: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      01000300036B726D000107004552204445500000010462617356000904005C95
      0A00000104736F6E56000904009B220B000001}
    SQL.Strings = (
      'SELECT'
      'ALIS1.FATNO,'
      'ALIS1.FATARIH,'
      'ALIS1.ALISNO,'
      'HAREKET.VADE,'
      'HAREKET.ALSATNO'
      'FROM HAREKET,ALIS1'
      'WHERE (ALIS1.ALISNO=HAREKET.ALSATNO)'
      'AND (HAREKET.CARIKOD=:krm)'
      'AND (HAREKET.ALSAT='#39'A'#39' )'
      'AND (HAREKET.TUR='#39'A'#39' )'
      'AND (HAREKET.VADE>=:basV )'
      'AND (HAREKET.VADE<=:sonV)'
      'AND (HAREKET.NIHAI IS NULL OR HAREKET.NIHAI=0) ')
    Left = 112
    Top = 112
    object QFatFATNO: TStringField
      DisplayLabel = 'Fatura No'
      FieldName = 'FATNO'
      Size = 15
    end
    object QFatFATARIH: TDateField
      DisplayLabel = 'Fat.Trh'
      DisplayWidth = 8
      FieldName = 'FATARIH'
      DisplayFormat = 'dd.mm.yy'
    end
    object QFatVADE: TDateField
      FieldName = 'VADE'
    end
  end
  object DataSource3: TDataSource
    DataSet = QFat
    Left = 144
    Top = 112
  end
  object TableEcz: TTable
    DatabaseName = 'ECZ'
    TableName = 'EKIM.DB'
    Left = 64
    Top = 329
    object TableEczEADI: TStringField
      FieldName = 'EADI'
      Size = 35
    end
    object TableEczADI: TStringField
      FieldName = 'ADI'
      Size = 36
    end
    object TableEczMESULAD: TStringField
      FieldName = 'MESULAD'
      Size = 36
    end
    object TableEczADR1: TStringField
      FieldName = 'ADR1'
    end
    object TableEczADR2: TStringField
      FieldName = 'ADR2'
    end
    object TableEczADR3: TStringField
      FieldName = 'ADR3'
    end
    object TableEczTLF: TStringField
      FieldName = 'TLF'
      Size = 11
    end
  end
  object TediyeTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'tediye.db'
    Left = 216
    Top = 336
    object TediyeTabHAREKETNO: TFloatField
      FieldName = 'HAREKETNO'
    end
    object TediyeTabMAKBUZ: TMemoField
      FieldName = 'MAKBUZ'
      BlobType = ftMemo
      Size = 5
    end
  end
  object DS_TED: TDataSource
    DataSet = TediyeTab
    Left = 248
    Top = 336
  end
  object CariHrkTab: TTable
    AfterPost = CariHrkTabAfterPost
    DatabaseName = 'ECZ'
    IndexName = 'CKODTAR'
    TableName = 'HAREKET.DB'
    Left = 467
    Top = 221
    object CariHrkTabCARIKOD: TStringField
      FieldName = 'CARIKOD'
      Visible = False
      Size = 11
    end
    object CariHrkTabTARIH: TDateField
      DisplayLabel = 'Tarih'
      DisplayWidth = 10
      FieldName = 'TARIH'
      Required = True
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '!99/99/9999;1;_'
    end
    object CariHrkTabTUR: TStringField
      DisplayLabel = '�dm. Tipi '
      DisplayWidth = 8
      FieldName = 'TUR'
      Required = True
      Size = 1
    end
    object CariHrkTabALACAK: TCurrencyField
      DisplayLabel = 'Alacak'
      DisplayWidth = 14
      FieldName = 'ALACAK'
    end
    object CariHrkTabVADE: TDateField
      DisplayLabel = 'Vade'
      DisplayWidth = 10
      FieldName = 'VADE'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '!99/99/9999;1;_'
    end
    object CariHrkTabBORC: TCurrencyField
      DisplayLabel = 'Bor�'
      DisplayWidth = 14
      FieldName = 'BORC'
    end
    object CariHrkTabNIHAI: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = 'Cari Hareket'
      DisplayWidth = 13
      FieldName = 'NIHAI'
    end
    object CariHrkTabBILGI: TStringField
      DisplayLabel = 'A��klama'
      DisplayWidth = 36
      FieldName = 'BILGI'
      Size = 36
    end
    object CariHrkTabSONTARIH: TDateField
      DisplayLabel = 'Son Durum.Trh.'
      DisplayWidth = 10
      FieldName = 'SONTARIH'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '!99/99/9999;1;_'
    end
    object CariHrkTabHAREKNO: TFloatField
      DisplayLabel = 'Hareket No'
      FieldName = 'HAREKNO'
    end
    object CariHrkTabALSAT: TStringField
      DisplayLabel = 'Oto. S�n�f'
      DisplayWidth = 14
      FieldName = 'ALSAT'
      ReadOnly = True
      Size = 1
    end
    object CariHrkTabALSATNO: TFloatField
      DisplayLabel = 'Oto.S�n�f No'
      DisplayWidth = 8
      FieldName = 'ALSATNO'
      ReadOnly = True
    end
  end
  object krmBak: TTable
    DatabaseName = 'ECZ'
    TableName = 'KRMLAR.DB'
    Left = 503
    Top = 200
    object krmBakKOD: TStringField
      FieldName = 'KOD'
      Required = True
      Size = 11
    end
    object krmBakAD: TStringField
      FieldName = 'AD'
      Required = True
      Size = 36
    end
    object krmBakBORC: TCurrencyField
      FieldName = 'BORC'
    end
    object krmBakALACAK: TCurrencyField
      FieldName = 'ALACAK'
    end
  end
  object HrkNoAl: TTable
    DatabaseName = 'ECZ'
    TableName = 'HRKNOAL.DB'
    Left = 544
    Top = 206
    object HrkNoAlHRKNO: TFloatField
      FieldName = 'HRKNO'
    end
  end
end